home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 12 / Mac Magazin and MacEasy Magazine CD - Issue 12.iso / Sharewarebibliothek / DFÜ / Joe's Pager™ (App) 1.55 / Joe's Pager™ (App) / Joe's Pager™ (App).rsrc / LENS_131_New Name < prev    next >
Text File  |  1995-01-20  |  2KB  |  88 lines
  1. ItemType: WIND
  2. Rect: 106,95,406,230
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. Name: New Name
  7. TextFont: Geneva
  8. TextSize: 9
  9. Script: --on windowEvent  --wdID,wdName,objNo,objName,objValue¬¬if objValue="Open" then¬else if objValue="Close" then¬  ¬else if objValue="Suspend" then ¬  ¬else if objValue="Resume" then ¬  ¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent¬¬
  10. Params: i5_KeyFilter¬i6_KeyFilter¬i7_KeyFilter¬i8_KeyFilter
  11. Result: i5_Text¬i6_Text¬i7_Text¬i8_Text¬i9_Text
  12.  
  13. ItemType: PUSH
  14. Rect: 16,112,96,128
  15. Name: Save
  16. Balloon: Saves this name information to the Names List
  17. Script: NewNameSave wdName
  18.  
  19. ItemType: PUSH
  20. Rect: 208,112,280,128
  21. Name: Cancel
  22. DefaultItem: TRUE
  23. CancelItem: TRUE
  24. AutoClose: TRUE
  25. Balloon: Closes this window
  26.  
  27. ItemType: LBL
  28. Rect: 16,9,73,21
  29. Text: First Name:
  30.  
  31. ItemType: LBL
  32. Rect: 36,34,73,46
  33. Text: Middle:
  34.  
  35. ItemType: TEXT
  36. Rect: 72,9,287,25
  37. Name: First Name
  38. LockText: FALSE
  39. TextStyle: Bold
  40. Script: if ":" is in objValue then¬  answer "Please remove all colons (“:”) from name."¬  return "JBfalse"¬end if
  41.  
  42. ItemType: TEXT
  43. Rect: 72,33,287,49
  44. Name: Middle Name
  45. LockText: FALSE
  46. TextStyle: Bold
  47. Script: if ":" is in objValue then¬  answer "Please remove all colons (“:”) from name."¬  return "JBfalse"¬end if
  48.  
  49. ItemType: TEXT
  50. Rect: 72,57,287,73
  51. Name: Last Name
  52. LockText: FALSE
  53. TextStyle: Bold
  54. Script: if ":" is in objValue then¬  answer "Please remove all colons (“:”) from name."¬  return "JBfalse"¬end if
  55.  
  56. ItemType: TEXT
  57. Rect: 72,81,195,97
  58. Name: PINNo
  59. LockText: FALSE
  60. TextStyle: Bold
  61. Script: put line 8 of bg fld "Preferences" into numDigits¬if numDigits is not empty and numDigits is a number then¬  if length of objValue ≠ numDigits then¬    answer "PIN must be" && numDigits && "digits long."¬    return true¬  end if¬end if
  62.  
  63. ItemType: TEXT
  64. Rect: 72,139,167,155
  65. Name: JBidNo
  66. LockText: FALSE
  67. TextStyle: Bold
  68.  
  69. ItemType: TEXT
  70. Rect: 72,160,287,176
  71. Name: NameDataBank
  72. LockText: FALSE
  73. TextStyle: Bold
  74.  
  75. ItemType: TEXT
  76. Rect: 72,181,164,197
  77. Name: EditLineNo
  78. LockText: FALSE
  79. TextStyle: Bold
  80.  
  81. ItemType: LBL
  82. Rect: 19,57,73,69
  83. Text: Last Name:
  84.  
  85. ItemType: LBL
  86. Rect: 50,81,73,93
  87. Text: PIN:
  88. Balloon: PIN is Pager ID Number. Usually this is a 7 digit number used to call a specific person's pager.